home *** CD-ROM | disk | FTP | other *** search
/ USGS: National Coal Resou…s & Great Plains Regions / USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso / PROGRAM / EXT32 / ADRG.AVX next >
Encoding:
Text File  |  1998-07-18  |  4.4 KB  |  40 lines
  1. /3.1
  2. (Extension.1
  3.     Name:    "ADRG Image Support"
  4.     Dependencies:    "$AVBIN/adrg.dll\n"
  5.     FirstRootClassName:    "Script"
  6.     Roots:    2
  7.     Version:    30
  8.     About:    "Extends ArcView to support ADRG images (v3.1)."
  9.     LoadScript:    3
  10.     CanUnloadScript:    4
  11.     UnloadScript:    5
  12.     ExtVersion:    3100
  13. )
  14.  
  15. (Script.2
  16.     Name:    "ADRG.ObjectsPresent"
  17.     SourceCode:    "theProject = av.GetProject\nif (theProject = NIL) then\n  return FALSE\nend\n\nfor each e in Clipboard.The\n  if (e.Is(ITheme)) then\n    theImgSrc = e.GetImgSrc\n    theSrcName = theImgSrc.GetSrcName\n    if (ImgCat.IsValidFileName(theSrcName.GetFileName)) then\n      if (theImgSrc.ContainType(ISrc.ReturnTypeFromFileExt(\"ovr\"))) then\n        return TRUE\n      end\n    else\n      if (theImgSrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ovr\")) then\n        return TRUE\n      end\n    end\n  elseif (e.Is(ViewFrame) and e.IsF
  18. illed) then\n    for each aTheme in e.GetView.GetThemes\n      if (aTheme.Is(ITheme)) then\n        theImgSrc = aTheme.GetImgSrc\n        theSrcName = theImgSrc.GetSrcName\n        if (ImgCat.IsValidFileName(theSrcName.GetFileName)) then\n          if (theImgSrc.ContainType(ISrc.ReturnTypeFromFileExt(\"ovr\"))) then\n            return TRUE\n          end\n        else\n          if (theImgSrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ovr\")) then\n            return TRUE\n          end\n        end\n      end\n    end\n  else
  19. if (e.Is(PictureFrame) and e.IsFilled and e.IsFilledBy(FileName)) then\n    theFillObj = e.GetFillObject\n    if (ISrc.IsValidFileName(theFillObj)) then\n      theISrc = ISrc.Make(SrcName.Make(theFillObj.AsString))\n      if (theISrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ovr\")) then\n        return TRUE\n      end\n    end\n  end\nend\ntheDocs = av.GetProject.GetDocs\nfor each aDoc in theDocs\n  if (aDoc.Is(View)) then\n    for each aTheme in aDoc.GetThemes\n      if (aTheme.Is(ITheme)) then\n        theImgSrc = aTheme
  20. .GetImgSrc\n        theSrcName = theImgSrc.GetSrcName\n        if (ImgCat.IsValidFileName(theSrcName.GetFileName)) then\n          if (theImgSrc.ContainType(ISrc.ReturnTypeFromFileExt(\"ovr\"))) then\n            return TRUE\n          end\n        else\n          if (theImgSrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ovr\")) then\n            return TRUE\n          end\n        end\n      end\n    end\n  elseif (aDoc.Is(Layout)) then\n    for each aGraphic in aDoc.GetGraphics\n      if (aGraphic.Is(PictureFrame) and aGraphi
  21. c.IsFilled and aGraphic.IsFilledBy(FileName)) then\n        theFillObj = aGraphic.GetFillObject\n        if (ISrc.IsValidFileName(theFillObj)) then\n          theISrc = ISrc.Make(SrcName.Make(theFillObj.AsString))\n          if (theISrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ovr\")) then\n            return TRUE\n          end\n        end\n      elseif (aGraphic.Is(ViewFrame) and aGraphic.IsFilled) then\n        for each aTheme in aGraphic.GetView.GetThemes\n          if (aTheme.Is(ITheme)) then\n            theImgS
  22. rc = aTheme.GetImgSrc\n            theSrcName = theImgSrc.GetSrcName\n            if (ImgCat.IsValidFileName(theSrcName.GetFileName)) then\n              if (theImgSrc.ContainType(ISrc.ReturnTypeFromFileExt(\"ovr\"))) then\n                return TRUE\n              end\n            else\n              if (theImgSrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ovr\")) then\n                return TRUE\n              end\n            end\n          end\n        end\n      end\n    end\n  end\nend\n\nreturn FALSE\n\n\n\n"
  23. )
  24.  
  25. (Script.3
  26.     Name:    "ADRG.Load"
  27.     SourceCode:    "' Add .ovr and .img to the ISrc extension list\nextn_list = ISrc.ReturnExtensions\nextn_list = extn_list.Add(\"ovr\".AsString)\nextn_list = extn_list.Add(\"img\".AsString)\nISrc.SetExtensions(extn_list)\n"
  28. )
  29.  
  30. (Script.4
  31.     Name:    "ADRG.CanUnload"
  32.     SourceCode:    "' Run script ADRG.ObjectsPresent to see if there is any ImgSrc in any View with a .ovr extension.\n' Return result to boolean variable.\nobjectsPresent = av.Run(\"ADRG.ObjectsPresent\", NIL)\n\n' If objectsPresent is TRUE the dll should not be unloaded\nreturn objectsPresent.Not\n"
  33. )
  34.  
  35. (Script.5
  36.     Name:    "ADRG.Unload"
  37.     SourceCode:    "' Remove .ovr and .img to the ISrc extension list\nextn_list = ISrc.ReturnExtensions\novrIndex = extn_list.FindByValue(\"ovr\")\nif (ovrIndex <> -1) then\n  extn_list.Remove(ovrIndex)\nend\nimgIndex = extn_list.FindByValue(\"img\")\nif (imgIndex <> -1) then \n  extn_list.Remove(imgIndex)\nend\nISrc.SetExtensions(extn_list)\n"
  38. )
  39.  
  40.